home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc iii 85.d64 / ghoul dogs.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  349b  |  15 lines

  1. 100 IF SW=1 THEN SYS 49152: CLR: END
  2. 110 PRINT "PLUG JOYSTICK INTO PORT 2"
  3. 120 PRINT "  C[146]OLOUR   M[146]ONOCHROME"
  4. 130 GET A$
  5. 140 IF A$<>"C" AND A$<>"M" GOTO 130
  6. 150 SW=1: PRINT "[145]  ";
  7. 160 IF A$<>"C" GOTO 190
  8. 170 PRINT "COLOUR"
  9. 180 LOAD "GD/COLOUR.M",8,1
  10. 190 PRINT TAB(11) "MONOCHROME"
  11. 200 LOAD "GD/MONOCHROME.M",8,1
  12. 210 :
  13. 220 BOTH OF THESE FINISHED PROGRAMS
  14. 230 (null) FROM $C000 TO $CA84 INCLUSIVE
  15.